extern int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
